home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / PowerMacOberon feb96 / Dialogs / Bitmaps.Div.Mod (.txt) next >
Encoding:
Oberon Text  |  1995-06-30  |  717 b   |  28 lines  |  [TEXT/.Ob4]
  1. Syntax10.Scn.Fnt
  2. Syntax10i.Scn.Fnt
  3. Syntax10b.Scn.Fnt
  4. MODULE Bitmaps;
  5.     (** Markus Knasm
  6. ller *)
  7.     IMPORT Display; 
  8.     TYPE
  9.         Bitmap* = POINTER TO BitmapDesc;
  10.         BitmapDesc* = RECORD 
  11.             w-, h-: LONGINT;
  12.         END;
  13.         Disp-: Bitmap;
  14.     PROCEDURE CopyBlock* (sb, db: Bitmap; sx, sy, w, h, dx, dy, mode: INTEGER);
  15.     BEGIN
  16.          IF (sx = 0) & (sy = 0) THEN
  17.             Display.CopyBlock (dx, -h, w, h, dx, dy, mode)
  18.         ELSE
  19.             Display.CopyBlock (sx, sy, w, h, sx, -h, mode)     
  20.         END 
  21.     END CopyBlock;
  22.     PROCEDURE New* (w, h: LONGINT): Bitmap;
  23.         VAR b: Bitmap;
  24.     BEGIN NEW (b); b.w := w; b.h := h; RETURN b
  25.     END New;
  26. BEGIN NEW (Disp);
  27. END Bitmaps.
  28.